home *** CD-ROM | disk | FTP | other *** search
/ MacGames Sampler / PHT MacGames Bundle.iso / MacSource Folder / Samples from the CD / Pascal / Source□ / Talk Source / Talk ƒ / BaseGlobals.p < prev    next >
Encoding:
Text File  |  1992-04-20  |  1.1 KB  |  66 lines  |  [TEXT/PJMM]
  1. unit BaseGlobals;
  2.  
  3. { This program was written by Peter N Lewis, Mar 1992 in THINK Pascal 4.0.1 }
  4.  
  5. interface
  6.  
  7.     const
  8.         growzone_size = 5000;
  9.         global_strh_id = 128;
  10.         save_changes_alert_id = 135;
  11.         fail_alert_id = 150;
  12.         fail_strh_id = -1;
  13.  
  14.         pref_name = 1;
  15.         pref_launch_str = 2;
  16.         pref_no_file = 3;
  17.         help_menu_text = 4;
  18.         quiting_str = 5;
  19.         closing_str = 6;
  20.         notify_str = 7;
  21.  
  22.         M_Apple = 128;
  23.         M_File = 129;
  24.         M_Edit = 130;
  25.  
  26.         CAbout = 'abou';
  27.         CClose = 'clos';
  28.         CPreferences = 'pref';
  29.         CHelp = 'help';
  30.         CQuit = 'quit';
  31.         CUndo = 'undo';
  32.         CCut = 'cut ';
  33.         CCopy = 'copy';
  34.         CPaste = 'past';
  35.         CClear = 'clea';
  36.         CSelectAll = 'sela';
  37.  
  38.     var
  39.         M_HM_Help_I: integer;
  40.         MH_Apple, MH_File, MH_Edit: menuHandle;
  41.         quitNow: boolean;
  42.  
  43.     function GetGlobalString (i: integer): str255;
  44.     procedure AlertUser (i: integer);
  45.  
  46. implementation
  47.  
  48.     function GetGlobalString (i: integer): str255;
  49.         var
  50.             s: str255;
  51.     begin
  52.         GetIndString(s, global_strh_id, i);
  53.         GetGlobalString := s;
  54.     end;
  55.  
  56.     procedure AlertUser (i: integer);
  57.         var
  58.             s: str255;
  59.             a: integer;
  60.     begin
  61.         GetIndString(s, fail_strh_id, i);
  62.         ParamText(s, '', '', '');
  63.         a := Alert(fail_alert_id, nil);
  64.     end;
  65.  
  66. end.